home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / forth_83.zoo / index.scr < prev    next >
Text File  |  1992-04-07  |  2KB  |  1 lines
  1. \\                       *** Index ***                 26may86we                                                                Diese File enthält nur das Wort  INDEX  , das früher zum System-kern gehört hat.  INDEX  arbeitet aber jetzt auch auf Files     und mußte deshalb 'nach hinten' verlegt werden.                                                                                     INDEX   ( from to -- )                                      liest die BLOCKs from bis to einschliesslich und gibt deren     erste Zeilen aus.  INDEX  kann mit einer beliebigen Taste unter-brochen und mit ESC oder CTRL-C abgebrochen werden.             Die ersten Zeilen von Screens enthalten typisch Kommentare, die den Inhalt charakterisieren.                                                                                                                                                                                                                                                                                                    \ index findex                                         05dec85we                                                                \needs capacity     ' blk/drv Alias capacity                                                                                    | : range  ( from to -- to+1 from )                                  capacity 1- umin   swap   capacity 1- umin                      2dup > IF  swap  THEN  1+ swap ;                                                                                           : index ( from to --)                                              range DO  cr  I 4 .r   I space block  c/l type                            stop? IF  LEAVE  THEN  LOOP ;